home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / frac2.zip / FRAC2.PAS < prev   
Pascal/Delphi Source File  |  1993-04-26  |  645b  |  50 lines
  1. Program KEVINFRACTAL;
  2. Uses graph,crt;
  3.  
  4. var X,Y:integer;
  5.  
  6. Procedure init;
  7. var
  8.  gd,gm:integer;
  9. begin
  10. gd:=detect;
  11. initgraph(gd,gm,'c:\tp\bgi');
  12. end;
  13.  
  14. Procedure Doit;
  15. var
  16.  C,OX,OY,S:integer;
  17. begin
  18.  OX:=x;
  19.  OY:=y;
  20.  S:=random(3)+1;
  21.  if s=1 then
  22.    begin
  23.     X:=(OX+200) div 2;
  24.     Y:=OY div 2;
  25.     c:=red;
  26.    end;
  27.  if s=2 then
  28.    begin
  29.     X:=OX div 2;
  30.     Y:=(OY+400) div 2;
  31.     c:=blue;
  32.    end;
  33.  if s=3 then
  34.    begin
  35.     X:=(OX+400) div 2;
  36.     Y:=(OY+400) div 2;
  37.     c:=green;
  38.    end;
  39. putpixel(OX,oy,c);
  40. end;
  41.  
  42. begin
  43.   Init;
  44.   randomize;
  45.   X:=100;
  46.   y:=100;
  47.   repeat
  48.     doit;
  49.   until keypressed;
  50. end.